home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 February / macformat-034.iso / mac / Shareware City / Applications / Laughing Bird Folder / The Laughing Bird Restaurant / The Laughing Bird Restaurant.dxr / 00421.ls < prev    next >
Encoding:
Text File  |  1995-12-16  |  916 b   |  21 lines
  1. on exitFrame
  2.   global gFind, gReplace
  3.   set List1 to ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9"]
  4.   set List2 to ["Z", "q", ".", "&", "+", "=", "x", "j", "B", "!"]
  5.   repeat with n = 1 to 10
  6.     set gFind to getAt(List1, n)
  7.     set gReplace to getAt(List2, n)
  8.     findAndReplaceAll(line 7 of field "FullInfo", gFind, gReplace)
  9.     put the result into line 7 of field "FullInfo"
  10.     findAndReplaceAll(line 3 of field "FullInfo", gFind, gReplace)
  11.     put the result into line 3 of field "FullInfo"
  12.     findAndReplaceAll(line 4 of field "FullInfo", gFind, gReplace)
  13.     put the result into line 4 of field "FullInfo"
  14.     updateStage()
  15.   end repeat
  16.   copyToClipBoard(cast "FullInfo")
  17.   alert("The information you've provided has been copied to the clipboard. Please launch your E-Mail software and paste the info into the message area. Send it to:" & RETURN & "lafingbird@aol.com")
  18.   init(1, 40, 0)
  19.   go(#next)
  20. end
  21.